(defn
  fib [x y]
  (lazy-seq
        (cons x (fib y (+ x y)))))


(println (str
           (apply print-str
                (take (inc (new BigInteger (first *command-line-args*)))
                      (fib 0 1)))
         " ..."))
